home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 December / Chip_2003-12_cd1.bin / program / ctenari / ShiCola / CodePad37.exe / $INSTDIR / Syntax Definitions / cobol.def < prev    next >
Encoding:
Text File  |  2003-10-17  |  8.7 KB  |  209 lines
  1. object TPersHolder
  2.   P.Name = 'COBOL'
  3.   P.Extensions.Strings = (
  4.     'Cobol files (*.cob;*.cbl)|*.cob;*.cbl ')
  5.   P.SyntaxBlocks = <
  6.     item
  7.       Name = 'Default'
  8.       ID = 0
  9.       FIText = 0
  10.       FIIntNum = 1
  11.       FIFloatNum = 2
  12.       FIHexNum = 3
  13.       FISymbol = 8
  14.       FIIdentifier = 9
  15.       UseComments = True
  16.       UseSingleLineComments = True
  17.       UseStrings = True
  18.       UseSingleLineStrings = True
  19.       UseNumbers = True
  20.       UseIdentifiers = True
  21.       UseKeywords = True
  22.       BlockDelimiters = <>
  23.       SingleLineCommentDelimiters = <
  24.         item
  25.           FontID = 4
  26.           LeftDelimiter = '*'
  27.         end>
  28.       SingleLineStringDelimiters = <
  29.         item
  30.           FontID = 7
  31.           LeftDelimiter = #39
  32.           RightDelimiter = #39
  33.         end>
  34.       KeywordSets = <
  35.         item
  36.           FontID = 6
  37.           Name = 'Reserved Words'
  38.           Keywords = 
  39.             'DATA,DIVISION,ENVIRONMENT,IDENTIFICATION,PROCEDURE,STORAGE,WORKI' +
  40.             'NG,WORKING-STORAGE'
  41.         end
  42.         item
  43.           FontID = 10
  44.           Name = 'Reserved Words2'
  45.           Keywords = 
  46.             'ACCEPT,ACCESS,ADD,ADDRESS,ADVANCING,AFTER,ALL,ALLOWING,ALPHABET,' +
  47.             'ALPHABETIC,ALPHABETIC-LOWER,ALPHABETIC-UPPER,ALPHANUMERIC,ALPHAN' +
  48.             'UMERIC-EDITED,ALSO,ALTER,ALTERNATE,AND,ANY,APPLY,ARE,AREA,AREAS,' +
  49.             'ARITHMETIC,ASCENDING,ASSIGN,AT,AUTHOR,B-AND,BASIS,BEFORE,BEGINNI' +
  50.             'NG,B-EXOR,BINARY,BIT,BITS,BLANK,B-LESS,BLOCK,B-NOT,BOOLEAN,B-OR,' +
  51.             'BOTTOM,BY,CALL,CANCEL,CBL,CD,CF,CLASS,CLASS-ID,CLOCK-UNITS,CLOSE' +
  52.             ',COBOL,CODE,CODE-SET,COLLATING,COLUMN,COMMA,COMMIT,COMMON,COMMUN' +
  53.             'ICATION,COMP,COMP-1,COMP-2,COMP-3,COMP-4,COMP-6,COMP-7,COMP-8,CO' +
  54.             'MP-9,COMPUTATIONAL,COMPUTATIONAL-1,COMPUTATIONAL-2,COMPUTATIONAL' +
  55.             '-3,COMPUTATIONAL-4,COMPUTATIONAL-6,COMPUTATIONAL-7,COMPUTATIONAL' +
  56.             '-8,COMPUTATIONAL-9,COMPUTATIONAL-X,COMPUTE,COMP-X,COM-REG,CONFIG' +
  57.             'URATION,CONNECT,CONTAINED,CONTAINS,CONTENT,CONTINUE,CONTROL,CONT' +
  58.             'ROL-AREA,CONTROLS,CONVERTING,COPY,CORR,CORRESPONDING,COUNT,COUNT' +
  59.             'ER,CURRENCY,CURRENT,CYCLE,DATE,DATE-COMPILED,DATE-WRITTEN,DAY,DB' +
  60.             ',DB-ACCESS-CONTROL-KEY,DBCS,DB-DATA-NAME,DB-RECORD-NAME,DB-SET-N' +
  61.             'AME,DB-STATUS,DE,DEBUG,DEBUG-CONTENTS,DEBUGGING,DEBUG-ITEM,DEBUG' +
  62.             '-LINE,DEBUG-NAME,DEBUG-SUB-1,DEBUG-SUB-2,DEBUG-SUB-3,DECIMAL,DEC' +
  63.             'IMAL-POINT,DECLARATIVES,DEFAULT,DELETE,DELIMITED,DELIMITER,DEPEN' +
  64.             'DING,DESCENDING,DESTINATION,DETAIL,DISABLE,DISCONNECT,DISPLAY,DI' +
  65.             'SPLAY-1,DISPLAY-2,DISPLAY-3,DISPLAY-4,DISPLAY-5,DISPLAY-6,DISPLA' +
  66.             'Y-7,DISPLAY-8,DISPLAY-9,DIVIDE,DOWN,DUPLICATE,DUPLICATES,DYNAMIC' +
  67.             ',EDITED,EGCS,EGI,EJECT,ELSE,EMI,EMPTY,ENABLE,END,END-ADD,END-CAL' +
  68.             'L,END-COMPUTE,END-DISABLE,END-DIVIDE,END-ENABLE,END-EVALUATE,END' +
  69.             '-IF,ENDING,END-INVOKE,END-MULTIPLY,END-OF-PAGE,END-READ,END-RECE' +
  70.             'IVE,END-RETURN,END-REWRITE,END-SEND,END-START,END-STRING,END-SUB' +
  71.             'TRACT,END-UNSTRING,END-WRITE,ENTER,ENTRY,EOP,EQUAL,EQUALS,ERASE,' +
  72.             'ERROR,ESI,EVALUATE,EVERY,EXACT,EXCEEDS,EXCEPTION,EXCLUSIVE,EXIT,' +
  73.             'EXTEND,EXTERNAL,FALSE,FD,FETCH,FILE,FILE-CONTROL,FILE-CONTROL.,F' +
  74.             'ILLER,FINAL,FIND,FINISH,FIRST,FOOTING,FOR,FORM,FORMAT,FREE,FROM,' +
  75.             'FUNCTION,GENERATE,GET,GIVING,GLOBAL,GO,GOBACK,GREATER,GROUP,HEAD' +
  76.             'ING,HIGH,HIGH-VALUE,HIGH-VALUES,CH,CHARACTER,CHARACTERS,ID,IF,IN' +
  77.             ',INDEX,INDEX-1,INDEX-2,INDEX-3,INDEX-4,INDEX-5,INDEX-6,INDEX-7,I' +
  78.             'NDEX-8,INDEX-9,INDEXED,INDICATE,INHERITS,INITIAL,INITIALIZE,INIT' +
  79.             'IATE,INPUT,INPUT-OUTPUT,INSERT,INSPECT,INSTALLATION,INTO,INVALID' +
  80.             ',INVOKE,I-O,I-O-CONTROL,IS,ITEM,JUST,JUSTIFIED,KANJI,KEEP,KEY,LA' +
  81.             'BEL,LABELS,LAST,LD,LEADING,LEFT,LENGTH,LESS,LIMIT,LIMITS,LINAGE,' +
  82.             'LINAGE-COUNTER,LINE,LINE-COUNTER,LINES,LINKAGE,LOCALLY,LOCAL-STO' +
  83.             'RAGE,LOCK,LOW-VALUE,LS-AREA,MEMBER,MEMORY,MERGE,MESSAGE,METACLAS' +
  84.             'S,METHOD,METHOD-ID,MODE,MODIFY,MODULES,MORE,MOVE,MULTIPLE,MULTIP' +
  85.             'LY,NAME,NAMES,NATIVE,NEGATIVE,NEXT,NO,NORMAL,NOT,NULL,NULLS,NUMB' +
  86.             'ER,NUMERIC,NUMERIC-EDITED,OBJECT,OBJECT-COMPUTER,OCCURS,OF,OFF,O' +
  87.             'F-WEEK,OMITTED,ON,ONLY,OPEN,OPTIONAL,OR,ORDER,ORGANIZATION,OTHER' +
  88.             ',OUT,OUTPUT,OVERFLOW,OVERRIDE,OWNER,PACKED,PACKED-DECIMAL,PADDIN' +
  89.             'G,PAGE,PAGE-COUNTER,PARAGRAPH,PASSWORD,PERFORM,PF,PH,PIC,PICTURE' +
  90.             ',PLUS,POINTER,POSITION,POSITIVE,PRESENT,PRINTING,PRIOR,PROCEDURE' +
  91.             '-POINTER,PROCEDURES,PROCEED,PROCESS,PROCESSING,PROGRAM,PROGRAM-I' +
  92.             'D,PROTECTED,PURGE,QUEUE,QUEUE-3,QUOTE,QUOTES,RANDOM,RD,READ,READ' +
  93.             'Y,REALM,RECEIVE,RECONNECT,RECORD,RECORDING,RECORD-NAME,RECORDS,R' +
  94.             'ECURSIVE,REDEFINES,REEL,REFERENCE,REFERENCES,RELATION,RELATIVE,R' +
  95.             'ELEASE,RELOAD,REMAINDER,REMOVAL,RENAMES,REPEATED,REPLACE,REPLACI' +
  96.             'NG,REPORT,REPORTING,REPORTS,REPOSITORY,RERUN,RESERVE,RESET,RETAI' +
  97.             'NING,RETRIEVAL,RETURN,RETURN-CODE,RETURNING,REVERSED,REWIND,REWR' +
  98.             'ITE,RF,RH,RIGHT,ROLLBACK,ROUNDED,RUN,SAME,SD,SEARCH,SECTION,SECU' +
  99.             'RITY,SEGMENT,SELECT,SELF,SEND,SENTENCE,SEPARATE,SEQUENCE,SEQUENT' +
  100.             'IAL,SERVICE,SESSION-ID,SET,SHARED,SHIFT-IN,SIGN,SIZE,SKIP,SKIP1,' +
  101.             'SKIP2,SKIP3,SORT,SORT-CONTROL,SORT-CORE-SIZE,SORT-FILE-SIZE,SORT' +
  102.             '-MERGE,SORT-MESSAGE,SORT-MODE-SIZE,SORT-RETURN,SOURCE,SOURCE-COM' +
  103.             'PUTER,SPACE,SPACES,SPECIAL,SPECIAL-NAMES,STANDARD,STANDARD-1,STA' +
  104.             'NDARD-2,STANDARD-3,STANDARD-4,START,STATUS,STOP,STORE,STRING,SUB' +
  105.             ',SUB-QUEUE-1,SUB-QUEUE-2,SUB-SCHEMA,SUBTRACT,SUM,SUPER,SUPPRESS,' +
  106.             'SYMBOLIC,SYNC,SYNCHRONIZED,TABLE,TALLY,TALLYING,TAPE,TENANT,TERM' +
  107.             'INAL,TERMINATE,TEST,TEXT,THAN,THEN,THROUGH,THRU,TIME,TIMEOUT,TIM' +
  108.             'ES,TITLE,TO,TOP,TRACE,TRAILING,TRANSCEIVE,TRUE,TYPE,UNEQUAL,UNIT' +
  109.             ',UNSTRING,UNTIL,UP,UPDATE,UPON,USAGE,USAGE-MODE,USE,USING,VALID,' +
  110.             'VALIDATE,VALUE,VALUES,VARYING,WAIT,WHEN,WHEN-COMPILED,WITH,WITHI' +
  111.             'N,WORDS,WRITE,WRITE-ONLY,ZERO,ZEROES,ZEROS'
  112.         end>
  113.       FirstIdentChars = '+/<->A-Z_a-z'
  114.       OtherIdentChars = '\-0-9A-Z_a-z'
  115.     end>
  116.   P.FontTable = <
  117.     item
  118.       FontID = 0
  119.       GlobalAttrID = 'Whitespace'
  120.       Font.Charset = DEFAULT_CHARSET
  121.       Font.Color = clBlack
  122.       Font.Height = -13
  123.       Font.Name = 'Courier New'
  124.       Font.Style = []
  125.     end
  126.     item
  127.       FontID = 1
  128.       GlobalAttrID = 'Integer'
  129.       Font.Charset = DEFAULT_CHARSET
  130.       Font.Color = clGreen
  131.       Font.Height = -13
  132.       Font.Name = 'Courier New'
  133.       Font.Style = []
  134.     end
  135.     item
  136.       FontID = 2
  137.       GlobalAttrID = 'Float'
  138.       Font.Charset = DEFAULT_CHARSET
  139.       Font.Color = clGreen
  140.       Font.Height = -13
  141.       Font.Name = 'Courier New'
  142.       Font.Style = []
  143.     end
  144.     item
  145.       FontID = 3
  146.       GlobalAttrID = 'Integer'
  147.       Font.Charset = DEFAULT_CHARSET
  148.       Font.Color = clGreen
  149.       Font.Height = -13
  150.       Font.Name = 'Courier New'
  151.       Font.Style = []
  152.     end
  153.     item
  154.       FontID = 4
  155.       GlobalAttrID = 'Comment'
  156.       Font.Charset = DEFAULT_CHARSET
  157.       Font.Color = clGray
  158.       Font.Height = -13
  159.       Font.Name = 'Courier New'
  160.       Font.Style = [fsItalic]
  161.     end
  162.     item
  163.       FontID = 6
  164.       GlobalAttrID = 'Reserved words'
  165.       Font.Charset = DEFAULT_CHARSET
  166.       Font.Color = clBlue
  167.       Font.Height = -13
  168.       Font.Name = 'Courier New'
  169.       Font.Style = []
  170.     end
  171.     item
  172.       FontID = 7
  173.       GlobalAttrID = 'String'
  174.       Font.Charset = DEFAULT_CHARSET
  175.       Font.Color = clMaroon
  176.       Font.Height = -13
  177.       Font.Name = 'Courier New'
  178.       Font.Style = []
  179.     end
  180.     item
  181.       FontID = 8
  182.       GlobalAttrID = 'Delimiters'
  183.       Font.Charset = DEFAULT_CHARSET
  184.       Font.Color = clBlack
  185.       Font.Height = -13
  186.       Font.Name = 'Courier New'
  187.       Font.Style = []
  188.     end
  189.     item
  190.       FontID = 9
  191.       GlobalAttrID = 'Identifier'
  192.       Font.Charset = DEFAULT_CHARSET
  193.       Font.Color = clBlack
  194.       Font.Height = -13
  195.       Font.Name = 'Courier New'
  196.       Font.Style = []
  197.     end
  198.     item
  199.       FontID = 10
  200.       GlobalAttrID = 'System Variable'
  201.       Font.Charset = DEFAULT_CHARSET
  202.       Font.Color = clBlue
  203.       Font.Height = -13
  204.       Font.Name = 'Courier New'
  205.       Font.Style = []
  206.     end>
  207.   P.SyntaxVersion = 3
  208. end
  209.